unit uStubCliente;

interface

uses
  System.Win.scktcomp, IdIPWatch;

type
  TStubCliente = class
    private
      SocketCliente : TClientSocket;
    public
      constructor create;
  end;

implementation

{ TStubCliente }

constructor TStubCliente.create;
var
  IdIPWatch1: TIdIPWatch;
begin
  SocketCliente := TClientSocket.Create(nil);
  SocketCliente.ClientType  := ctNonBlocking;
  SocketCliente.Port        := 5000;
  SocketCliente.Host        := idipwatch1.LocalIP;
end;

end.
